
(map (=?? 5) (iota 10))			; => (#f #f #f #f #f #t #f #f #f #f)

(let ((p (and? even? (lambda (n) (> n 5)))))
  (map p (iota 10)))			; => (#f #f #f #f #f #f #t #f #t #f)


(let ((p (or? even? (lambda (n) (> n 5)))))
  (map p (iota 10)))			; => (#t #f #t #f #t #f #t #t #t #t)

(map (mkT abs number?) '(-1 "zero" 1))	; => (1 "zero" 1)
